home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / cli / ksc_Flush.lha / Flush.asm next >
Encoding:
Assembly Source File  |  1997-06-10  |  378 b   |  21 lines
  1. ; Flush 1.0 : flushs unused libraries, devices, fonts & other residents
  2. ; by Kyzer/CSG
  3. ; $VER: Flush 1.0 (10.06.97)
  4. ;
  5.     incdir    include:
  6.     include    lvo/exec_lib.i    
  7.  
  8. Flush    move.l    4.w,a6
  9.     move.l    #$07ffffff,d2    ; huge amounts of ram, please
  10.     move.l    d2,d0
  11.     moveq    #0,d1
  12.     jsr    _LVOAllocMem(a6)
  13.     tst.l    d0
  14.     beq.s    .quit
  15.     move.l    d0,a1
  16.     move.l    d2,d0
  17.     jsr    _LVOFreeMem(a6)
  18. .quit    moveq    #0,d0
  19.     rts
  20.  
  21.